home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue65 / time / testUTC1.dfm / testUTC1.txt < prev   
Encoding:
Text File  |  2000-10-18  |  10.0 KB  |  488 lines

  1. object frmMain: TfrmMain
  2.   Left = 252
  3.   Top = 111
  4.   ActiveControl = lvTZ
  5.   BorderIcons = [biSystemMenu, biMinimize]
  6.   BorderStyle = bsSingle
  7.   Caption = 'Time Zone Tester'
  8.   ClientHeight = 381
  9.   ClientWidth = 785
  10.   Color = clBtnFace
  11.   Font.Charset = DEFAULT_CHARSET
  12.   Font.Color = clWindowText
  13.   Font.Height = -11
  14.   Font.Name = 'MS Sans Serif'
  15.   Font.Style = []
  16.   Icon.Data = {<image000.ico>}
  17.   OldCreateOrder = True
  18.   Position = poScreenCenter
  19.   OnCreate = FormCreate
  20.   OnDestroy = FormDestroy
  21.   PixelsPerInch = 96
  22.   TextHeight = 13
  23.   object lvTZ: TListView
  24.     Left = 5
  25.     Top = 8
  26.     Width = 386
  27.     Height = 329
  28.     Columns = <
  29.       item
  30.         Caption = 'GMT'
  31.         Width = 40
  32.       end
  33.       item
  34.         Caption = 'Name'
  35.         Width = 114
  36.       end
  37.       item
  38.         Caption = 'H'
  39.         Width = 20
  40.       end
  41.       item
  42.         Alignment = taRightJustify
  43.         Caption = 'StdB'
  44.         Width = 35
  45.       end
  46.       item
  47.         Alignment = taRightJustify
  48.         Caption = 'DltB'
  49.         Width = 35
  50.       end
  51.       item
  52.         Caption = 'S'
  53.         Width = 20
  54.       end
  55.       item
  56.         Alignment = taCenter
  57.         Caption = 'Date Time'
  58.         Width = 100
  59.       end>
  60.     HideSelection = False
  61.     ReadOnly = True
  62.     RowSelect = True
  63.     SortType = stData
  64.     TabOrder = 0
  65.     ViewStyle = vsReport
  66.     OnClick = lvTZClick
  67.     OnCompare = lvTZCompare
  68.     OnSelectItem = lvTZSelectItem
  69.   end
  70.   object grpTimezone: TGroupBox
  71.     Left = 394
  72.     Top = 24
  73.     Width = 385
  74.     Height = 337
  75.     TabOrder = 1
  76.     object Label2: TLabel
  77.       Left = 8
  78.       Top = 12
  79.       Width = 68
  80.       Height = 13
  81.       Caption = 'Standard time:'
  82.     end
  83.     object Label1: TLabel
  84.       Left = 8
  85.       Top = 88
  86.       Width = 97
  87.       Height = 13
  88.       Caption = 'Daylight saving time:'
  89.     end
  90.     object Label3: TLabel
  91.       Left = 8
  92.       Top = 192
  93.       Width = 51
  94.       Height = 13
  95.       Caption = '&Local time:'
  96.       FocusControl = dateLocal
  97.     end
  98.     object Label4: TLabel
  99.       Left = 208
  100.       Top = 192
  101.       Width = 47
  102.       Height = 13
  103.       Caption = '&UTC time:'
  104.       FocusControl = dateUTC
  105.     end
  106.     object lblSwatchHead: TLabel
  107.       Left = 208
  108.       Top = 264
  109.       Width = 65
  110.       Height = 13
  111.       Caption = '&Internet Time:'
  112.       FocusControl = dateSwatch
  113.     end
  114.     object lblSwatch: TLabel
  115.       Left = 304
  116.       Top = 284
  117.       Width = 11
  118.       Height = 13
  119.       Caption = '@'
  120.     end
  121.     object lblSwatch2: TLabel
  122.       Left = 304
  123.       Top = 308
  124.       Width = 11
  125.       Height = 13
  126.       Caption = '@'
  127.     end
  128.     object Label5: TLabel
  129.       Left = 8
  130.       Top = 164
  131.       Width = 84
  132.       Height = 13
  133.       Caption = 'Current UTC bias:'
  134.       FocusControl = outUTCBias
  135.     end
  136.     object Label6: TLabel
  137.       Left = 144
  138.       Top = 164
  139.       Width = 36
  140.       Height = 13
  141.       Caption = 'minutes'
  142.       FocusControl = outUTCBias
  143.     end
  144.     object StandardSet: TSpeedButton
  145.       Left = 327
  146.       Top = 9
  147.       Width = 49
  148.       Height = 22
  149.       Caption = 'Set'
  150.       Enabled = False
  151.       OnClick = StandardSetClick
  152.     end
  153.     object Label7: TLabel
  154.       Left = 162
  155.       Top = 12
  156.       Width = 35
  157.       Height = 13
  158.       AutoSize = False
  159.       Caption = 'Month:'
  160.     end
  161.     object Label8: TLabel
  162.       Left = 247
  163.       Top = 12
  164.       Width = 31
  165.       Height = 13
  166.       AutoSize = False
  167.       Caption = 'wDay:'
  168.     end
  169.     object Label9: TLabel
  170.       Left = 162
  171.       Top = 86
  172.       Width = 35
  173.       Height = 13
  174.       AutoSize = False
  175.       Caption = 'Month:'
  176.     end
  177.     object Label10: TLabel
  178.       Left = 246
  179.       Top = 86
  180.       Width = 32
  181.       Height = 13
  182.       AutoSize = False
  183.       Caption = 'wDay:'
  184.     end
  185.     object DaylightSet: TSpeedButton
  186.       Left = 327
  187.       Top = 83
  188.       Width = 49
  189.       Height = 22
  190.       Caption = 'Set'
  191.       Enabled = False
  192.       OnClick = DaylightSetClick
  193.     end
  194.     object outInvalidTime: TEdit
  195.       Left = 208
  196.       Top = 208
  197.       Width = 164
  198.       Height = 21
  199.       ParentColor = True
  200.       ReadOnly = True
  201.       TabOrder = 16
  202.       Text = 'Invalid local time'
  203.       Visible = False
  204.     end
  205.     object timeUTC: TDateTimePicker
  206.       Left = 300
  207.       Top = 208
  208.       Width = 73
  209.       Height = 21
  210.       CalAlignment = dtaLeft
  211.       Date = 36255.635038333300000000
  212.       Time = 36255.635038333300000000
  213.       DateFormat = dfShort
  214.       DateMode = dmComboBox
  215.       Kind = dtkTime
  216.       ParseInput = False
  217.       TabOrder = 8
  218.       OnChange = dateLocalChange
  219.     end
  220.     object dateUTC: TDateTimePicker
  221.       Left = 208
  222.       Top = 208
  223.       Width = 89
  224.       Height = 21
  225.       CalAlignment = dtaLeft
  226.       Date = 36255.634835428210000000
  227.       Time = 36255.634835428210000000
  228.       DateFormat = dfShort
  229.       DateMode = dmComboBox
  230.       Kind = dtkDate
  231.       ParseInput = False
  232.       TabOrder = 9
  233.       OnChange = dateLocalChange
  234.     end
  235.     object outStandard: TMemo
  236.       Left = 8
  237.       Top = 32
  238.       Width = 369
  239.       Height = 49
  240.       ParentColor = True
  241.       ReadOnly = True
  242.       TabOrder = 0
  243.     end
  244.     object outDaylight: TMemo
  245.       Left = 8
  246.       Top = 106
  247.       Width = 369
  248.       Height = 49
  249.       ParentColor = True
  250.       ReadOnly = True
  251.       TabOrder = 1
  252.     end
  253.     object dateLocal: TDateTimePicker
  254.       Left = 8
  255.       Top = 208
  256.       Width = 89
  257.       Height = 21
  258.       CalAlignment = dtaLeft
  259.       Date = 36255.634835428210000000
  260.       Time = 36255.634835428210000000
  261.       DateFormat = dfShort
  262.       DateMode = dmComboBox
  263.       Kind = dtkDate
  264.       ParseInput = False
  265.       TabOrder = 10
  266.       OnChange = dateLocalChange
  267.     end
  268.     object timeLocal: TDateTimePicker
  269.       Left = 100
  270.       Top = 208
  271.       Width = 73
  272.       Height = 21
  273.       CalAlignment = dtaLeft
  274.       Date = 36255.635038333300000000
  275.       Time = 36255.635038333300000000
  276.       DateFormat = dfShort
  277.       DateMode = dmComboBox
  278.       Kind = dtkTime
  279.       ParseInput = False
  280.       TabOrder = 11
  281.       OnChange = dateLocalChange
  282.     end
  283.     object btnLocD2S: TButton
  284.       Left = 8
  285.       Top = 272
  286.       Width = 165
  287.       Height = 25
  288.       Caption = 'Start of &Standard Time'
  289.       Enabled = False
  290.       TabOrder = 6
  291.       OnClick = btnLocD2SClick
  292.     end
  293.     object btnLocS2D: TButton
  294.       Left = 8
  295.       Top = 304
  296.       Width = 165
  297.       Height = 25
  298.       Caption = 'Start of &Daylight Saving Time'
  299.       Enabled = False
  300.       TabOrder = 7
  301.       OnClick = btnLocD2SClick
  302.     end
  303.     object dateUTC2: TDateTimePicker
  304.       Left = 208
  305.       Top = 232
  306.       Width = 89
  307.       Height = 21
  308.       CalAlignment = dtaLeft
  309.       Date = 36255.634835428210000000
  310.       Time = 36255.634835428210000000
  311.       Color = clBtnFace
  312.       DateFormat = dfShort
  313.       DateMode = dmComboBox
  314.       Kind = dtkDate
  315.       ParseInput = False
  316.       TabOrder = 12
  317.       OnCloseUp = timeUTC2Change
  318.       OnChange = timeUTC2Change
  319.     end
  320.     object timeUTC2: TDateTimePicker
  321.       Left = 300
  322.       Top = 232
  323.       Width = 73
  324.       Height = 21
  325.       CalAlignment = dtaLeft
  326.       Date = 36255.000000000000000000
  327.       Time = 36255.000000000000000000
  328.       Color = clBtnFace
  329.       DateFormat = dfShort
  330.       DateMode = dmComboBox
  331.       Kind = dtkTime
  332.       ParseInput = False
  333.       TabOrder = 13
  334.       OnChange = timeUTC2Change
  335.     end
  336.     object dateSwatch: TDateTimePicker
  337.       Left = 208
  338.       Top = 280
  339.       Width = 89
  340.       Height = 21
  341.       CalAlignment = dtaLeft
  342.       Date = 36255.634835428210000000
  343.       Time = 36255.634835428210000000
  344.       DateFormat = dfShort
  345.       DateMode = dmComboBox
  346.       Kind = dtkDate
  347.       ParseInput = False
  348.       TabOrder = 14
  349.       OnChange = dateLocalChange
  350.     end
  351.     object timeSwatch: TSpinEdit
  352.       Left = 320
  353.       Top = 280
  354.       Width = 49
  355.       Height = 22
  356.       MaxLength = 3
  357.       MaxValue = 999
  358.       MinValue = 0
  359.       TabOrder = 3
  360.       Value = 0
  361.       OnChange = dateLocalChange
  362.     end
  363.     object dateSwatch2: TDateTimePicker
  364.       Left = 208
  365.       Top = 304
  366.       Width = 89
  367.       Height = 21
  368.       CalAlignment = dtaLeft
  369.       Date = 36255.634835428210000000
  370.       Time = 36255.634835428210000000
  371.       Color = clBtnFace
  372.       DateFormat = dfShort
  373.       DateMode = dmComboBox
  374.       Kind = dtkDate
  375.       ParseInput = False
  376.       TabOrder = 15
  377.       OnCloseUp = timeUTC2Change
  378.       OnChange = timeUTC2Change
  379.     end
  380.     object timeSwatch2: TSpinEdit
  381.       Left = 320
  382.       Top = 304
  383.       Width = 49
  384.       Height = 22
  385.       MaxLength = 3
  386.       MaxValue = 999
  387.       MinValue = 0
  388.       ParentColor = True
  389.       ReadOnly = True
  390.       TabOrder = 4
  391.       Value = 0
  392.     end
  393.     object btnLocNow: TButton
  394.       Left = 8
  395.       Top = 240
  396.       Width = 165
  397.       Height = 25
  398.       Caption = '&Now'
  399.       TabOrder = 5
  400.       OnClick = btnLocD2SClick
  401.     end
  402.     object outUTCBias: TEdit
  403.       Left = 96
  404.       Top = 160
  405.       Width = 41
  406.       Height = 21
  407.       ParentColor = True
  408.       ReadOnly = True
  409.       TabOrder = 2
  410.     end
  411.     object StMonth: TSpinEdit
  412.       Left = 200
  413.       Top = 8
  414.       Width = 41
  415.       Height = 22
  416.       Hint = 'starting month'
  417.       Enabled = False
  418.       MaxValue = 12
  419.       MinValue = 1
  420.       TabOrder = 17
  421.       Value = 1
  422.     end
  423.     object StDay: TSpinEdit
  424.       Left = 280
  425.       Top = 8
  426.       Width = 41
  427.       Height = 22
  428.       Hint = 'starting weekday [ 5 = last ]'
  429.       Enabled = False
  430.       MaxValue = 5
  431.       MinValue = 1
  432.       TabOrder = 18
  433.       Value = 1
  434.     end
  435.     object DlMonth: TSpinEdit
  436.       Left = 200
  437.       Top = 82
  438.       Width = 41
  439.       Height = 22
  440.       Hint = 'starting month'
  441.       Enabled = False
  442.       MaxValue = 12
  443.       MinValue = 1
  444.       TabOrder = 19
  445.       Value = 1
  446.     end
  447.     object DlDay: TSpinEdit
  448.       Left = 280
  449.       Top = 82
  450.       Width = 41
  451.       Height = 22
  452.       Hint = 'starting weekday [ 5 = last ]'
  453.       Enabled = False
  454.       MaxValue = 5
  455.       MinValue = 1
  456.       TabOrder = 20
  457.       Value = 1
  458.     end
  459.   end
  460.   object StatusBar1: TStatusBar
  461.     Left = 0
  462.     Top = 362
  463.     Width = 785
  464.     Height = 19
  465.     Panels = <>
  466.     SimplePanel = True
  467.   end
  468.   object StaticText1: TStaticText
  469.     Left = 394
  470.     Top = 8
  471.     Width = 385
  472.     Height = 18
  473.     AutoSize = False
  474.     BorderStyle = sbsSunken
  475.     TabOrder = 3
  476.   end
  477.   object StaticText2: TStaticText
  478.     Left = 5
  479.     Top = 341
  480.     Width = 386
  481.     Height = 18
  482.     Hint = 'current status of time zone'
  483.     AutoSize = False
  484.     BorderStyle = sbsSunken
  485.     TabOrder = 4
  486.   end
  487. end
  488.